library(countrycode)
library(tidyverse)
library(janitor)
library(wbstats)
library(haven)
# load AAA event data
AAAD_events <- read_csv("data/_Authoritarian Actions Abroad Database (online appendix).xlsx - Sheet1.csv")
load("/Users/redmondscales/Dropbox/Transnational repression/TR_project_share/TR_project_share/data/data_final.Rda")
write.csv(data_final, 'TR_data_final.csv')
